home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1996 January / Computer Life January 1996.iso / telix / tfw.5 / VERSIONS.SLT < prev    next >
Encoding:
Text File  |  1995-07-28  |  1.2 KB  |  36 lines
  1. /****************************************************************/
  2. /*                                                              */
  3. /*  Demo of how to determine what version of Telix, for DOS or  */
  4. /*  Windows and its version number, to keep scripts compatible. */
  5. /*                                                              */
  6. /*                   Copyright 1995 deltaComm Development, Inc. */
  7. /*                                                              */
  8. /****************************************************************/
  9.  
  10. main()
  11. {
  12.  str ss[128];
  13.  
  14.  printsc("Telix for ");                   // Test Windows or DOS
  15.  if (telixforwindows())
  16.    prints("Windows");
  17.  else
  18.    prints("DOS");
  19.  
  20.  if (!scriptversion())                    // If TFW's SALT II, then
  21.    printsc("Not ");                       // say so, or say not if not.
  22.  prints("SALT II compatible");
  23.  
  24.  printsc("Telix version: ");
  25.  prints(Telixversion(ss));                // Display version of Telix
  26.  
  27.  if (getenv("TELIX", ss))                 // if environment variable exists
  28.   {                                       // then show its value here.
  29.    printsc("TELIX variable value: ");
  30.    prints(ss);
  31.   }
  32.  
  33.  printsc("Current Phonebook: ");
  34.  prints(getfon(ss));
  35. }
  36.